home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbcred1a / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-28  |  2.6 KB  |  80 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VBCredits"
  6.    ClientHeight    =   5265
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   6195
  10.    BeginProperty Font 
  11.       Name            =   "Fixedsys"
  12.       Size            =   9
  13.       Charset         =   0
  14.       Weight          =   400
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H00FFFFFF&
  20.    LinkTopic       =   "Form1"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    ScaleHeight     =   351
  24.    ScaleMode       =   3  'Pixel
  25.    ScaleWidth      =   413
  26.    StartUpPosition =   3  'Windows Default
  27. Attribute VB_Name = "frmMain"
  28. Attribute VB_GlobalNameSpace = False
  29. Attribute VB_Creatable = False
  30. Attribute VB_PredeclaredId = True
  31. Attribute VB_Exposed = False
  32. ' The credits object
  33. Dim myCredits As New cCredits
  34. Private Sub Form_Load()
  35.     ' Frame limiter
  36.     Dim CurTime As Long, NextTime As Long
  37.     ' ALWAYS make sure the form is shown before entering a loop
  38.     Me.Show
  39.     ' 50ms between frames (If the system can handle it)
  40.     NextTime = timeGetTime() + 50
  41.     ' Set the Y position of the credits
  42.     myCredits.PosY = Me.ScaleHeight
  43.     ' This loads the text in the text file into the VBCredits strings
  44.     Call LoadTXT
  45.     ' Center align the text
  46.     SetTextAlign Me.hDC, TA_CENTER
  47.     ' Do until the program ends
  48.     Do While DoEvents()
  49.         ' Get the current time
  50.         CurTime = timeGetTime()
  51.         ' If the time is right to execute the next frame
  52.         If CurTime >= NextTime Then
  53.             ' Clear the screen
  54.             Me.Cls
  55.             
  56.             ' Move the credits at a speed of 1 pixel
  57.             myCredits.Move -1
  58.             ' Draw the credits onto the form
  59.             myCredits.Draw Me.hDC, Me.ScaleWidth, Me.ScaleHeight
  60.             
  61.             ' Set when the next frame should be executed
  62.             NextTime = CurTime + 50
  63.         End If
  64.     Loop
  65. End Sub
  66. Public Sub LoadTXT()
  67.     ' Resize the strings array to no strings
  68.     ReDim Strings(0)
  69.     ' Open the text file
  70.     Open App.Path & "\credits.txt" For Input As #1
  71.         ' Repeat until the end of the file
  72.         Do Until EOF(1)
  73.             ' Resize the array preserving the current entries
  74.             ReDim Preserve Strings(UBound(Strings) + 1)
  75.             ' Load in the string
  76.             Input #1, Strings(UBound(Strings))
  77.         Loop
  78.     Close #1
  79. End Sub
  80.